home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tunes.arc / SONATINA.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-28  |  2.8 KB  |  75 lines
  1. 3  GOSUB 600
  2. 5  FOR I= 1 TO 2
  3. 10  PLAY "T195 O3 L4"
  4. 30  PLAY "MLC"
  5. 40  PLAY "L4O3 E8C8MSO2GGMN"
  6. 50  PLAY "O3 MLC"
  7. 70  PLAY "L4O3 E8C8MSO2GO3GML"
  8. 80  PLAY "L8 FEDCO2BO3CO2BO3CDCO2BAG4P4MN"
  9. 90  PLAY "O3 MLC4ECMS O2 G4G4ML O3"
  10. 100  PLAY "E4GEMSC4MLECD O2 B O3 C O2 ABGAMNF#"
  11. 110  PLAY "MLGAB O3 CDEF#MNGML O2 A4MS O3 A4A4A4ML"
  12. 120  PLAY "O2 B O3 CDEF#GAMNB"
  13. 130  PLAY "MLC4MS O4 C4C4C4ML O3 DGB O4 DC O3 BAGF#EGFAGFMNEMLEDC O2 B O3 DC O2"
  14. 140  PLAY "BAG2P2MN"
  15. 150  NEXT I
  16. 155  FOR I=1 TO 2
  17. 160  PLAY "MLB4 O3 D O2 BMS G4G4 O3 MLC4 E-CMS O2 G4ML O3 G4F4D4E-4C4"
  18. 170  PLAY "O2 B O3 CD O2 BMS G4G4ML"
  19. 180  PLAY "F4 O1 G4 O2 D4 O1 G4 O2 E-4 O1 G4 O2 C4 O1 G4"
  20. 190  PLAY "O3 DE-FDFE-DCMNG4"
  21. 200  PLAY "O0F4O1MLGFEMNDO2MLC4EC O1 MSG4G4 O2 MLC4 EC O1 MSG4 O2 G4 MLFEDC O1"
  22. 210  PLAY "BO2CO1BO2CDC O1 BAG4MN P4"
  23. 220  PLAY "O2 MLC4 O1 G O2 C MSE4E4MLE4CEMSG4 O3 C4 O2 G4F4E4D4MLCDEFGAB O3 MNC"
  24. 230  PLAY "O2 MLD4 O3 MSD4D4D4 O2 MLEFGAB O3CDMNE"
  25. 240  PLAY "O2 MLF4 O3 MSF4F4F4 O2 MLG O3 CEGFEDMNCMLAGFEDC O2 BA GAFGEFDMNE"
  26. 250  PLAY "O0 MLCEG O1 C O0 C4 P4 O2MN"
  27. 260  NEXT I
  28. 265  PLAY "T90"
  29. 270  PLAY "L9 O3ML C3C3F3 O2 A3MNA3MLO3 C3 O2 F3F3L36 G6AGFGMNA6 L9"
  30. 280  PLAY "O1ML FA O2 CFAO3MNCFFFD6 O1MLGBO2DFBO3MNDFFFC3MLAGFEDMNCMLCO2EMNGO3"
  31. 285  PLAY "MLCO2FMNAO3MLCO2FMNA"
  32. 290  PLAY "MLO3C5O2A18G3MNP3O3FFFEEEDDDG3O2MLGABO3CDMNEMLO2AO3FMNDCCCO2BBBO3"
  33. 295  PLAY "MLD3D3MNC3"
  34. 300  PLAY "CCCMLE-DCO2B-AMNGMLG-AMNDMLGBMNDMLAO3CO2MNDBBBO3MLDCO2BAGMNFMLEGMNC"
  35. 310  PLAY "MLFAO3MNCMLCO2BMNA"
  36. 320  PLAY "MLA3MNGO3CCMLCO2BMNAMLA3G3MNP3MLO3C3C3F3O2A3MNA3MLO3C3O2E-3MNE-3"
  37. 330  PLAY "MLE-6L36FE-DE-D3L9FBO3MNDDDD3O2BBBAAAGGGMLO3C5MNO2F18MLO3FEDCO2"
  38. 340  PLAY "BAGBO3DMNO2F3MLG6L36AGFGL9F3F3MNF3P2"
  39. 345  FOR I=1 TO 2
  40. 350  PLAY "O3 T120 L8 ML E16D16MS CC"
  41. 360  PLAY "MNG4MLF16E16DF O2 B O3 CMS O2 GG ML O3 E16D16MSCC"
  42. 370  PLAY "MN G4 ML L16 FEDEFEFDC8 P4"
  43. 380  PLAY "EDMSL8CCMLG4F16E16DF O2 B O3 C O2MS GGMLO3E16D16MSCC"
  44. 390  PLAY "MNG4 ML L16 FEDEFEFDC8P4"
  45. 400  PLAY "O2 GFMS E8E8 MLAGMS F8F8 ML"
  46. 410  PLAY "DFBFBFE8G8O3MNC8 ML O2 GFMS E8E8"
  47. 420  PLAY "O3 ML EDMSC8C8MLO2F+GABO3CO2AG8P8O3B O4 CDC O3 B"
  48. 430  PLAY "AGF+EDCO2 BAGF+GAB O3 CO2 AG8P8"
  49. 440  PLAY "O3BO4 CDC O3 BAGF+MSF8F8 MLO4DO3B MS F8F8 ML"
  50. 450  PLAY "O4D O3B MS F8P4DP4ML O2 BGAB O3 CDED MSC8C8 MN G4"
  51. 460  PLAY "ML FED8F8 O2 B8O3C8 MS O2 G8G8 O3 ML ED MS C8C8"
  52. 470  PLAY "MNG4 MLFEDEFEFDC8P4"
  53. 480  PLAY "ED MSC8C8 MN G4ML FED8F8O2 B8 O3C8MS O2G8G8 O3ML EDMSC8C8 MNG4"
  54. 490  PLAY "ML FEDEFEFDC8P4 O2 GFMSE8E8 MLAGMSF8F8 MLDFBFBFE8 P8"
  55. 500  PLAY "O3EFGFEDC O2 BAGFEDCO1 BO2 CDEFDC4 P8"
  56. 510  PLAY "GFMS C8C8 MLAG MS F8F8 ML DFBFBFE8P8 O3"
  57. 520  PLAY "EFGFEDC O2 BAGFEDC O1 B O2 CDEFD C8P4MN"
  58. 530  PLAY "G8 P4 O3 C8 P4 G8 O4P4 C4 P8"
  59. 540  NEXT I
  60. 545  LOCATE 1,1
  61. 550  FOR I=1 TO 1920
  62. 560  PRINT " ";
  63. 570  NEXT I:CLS:INPUT "PLAY AGAIN  (Y/N)";Q$:IF Q$="Y" THEN RUN ELSE RUN "MENU.BAS"
  64. 600  CLS
  65. 605  KEY OFF:COLOR 3,0,8
  66. 610  LOCATE 10,35
  67. 620  PRINT "SONATINA"
  68. 630  PRINT TAB(31);"by Muzio Clementi"
  69. 640  PRINT TAB(33);"Op. 36, No. 1"
  70. 650  LOCATE 23,5
  71. 660  PRINT "Programmed by Roger R. Darr & Chris C. Nelson."
  72. 670  LOCATE 9,30:PRINT STRING$(19,205);
  73. 680  LOCATE 13,30:PRINT STRING$(19,205);
  74. 700  RETURN
  75.